|
|  Flower Garden
|  Written by Ph.Donsback
|
SCRIPT_TYPE 1
|
BEGIN "Flower Garden"

  FLAGS   ClickFly AnimateFly AutoFly
  PACKS   1
  WIDTH   8 * CW
  HEIGHT 11 * CH 
  ZeroToWin 52 - CARDSIN$2

  FOR stack = 2 TO 5
    FOUNDATION
      X stack * CW
      Y 0
      FIRST 1
      JoinOffset 1
      ID 2
    END
  END

  FOR stack = 1 TO 6
    STACK
      X stack * CW
      Y CH
      FIRST 1,13
      DEAL 6,1
      DRAGUPTO 1
      FLAGS Join____ ClickFly
      ID 1
    END
  END

  FOR row = 1 TO 8
    FOR column = 0 TO 1
      STACK
        X column * CW * 7
        Y row * CH
        DEAL 1,1
        MAX 0
        FLAGS PaintLast ClickFly
        ID 3
      END
    END
  END

END
